home *** CD-ROM | disk | FTP | other *** search
/ PC World 2000 February / PCWorld_2000-02_cd.bin / Software / Vyzkuste / xsetup / _SETUP.2 / Group3 / XQ MSDOSSYS 3.xpl < prev    next >
Text File  |  1999-09-25  |  2KB  |  80 lines
  1. "FILE"="Xteq Systems X-Setup Plugin 5.0"
  2. "TYPE"="7"
  3. "COUNT"="3"
  4. "UIPATH"="System\Windows 95/98 Boot Options"
  5. "NAME"="ScanDisk Options"
  6. "VERSION"="1.24"
  7. "LANGUAGE"="VBScript"
  8. "TEXT 1"="Never start ScanDisk"
  9. "TEXT 2"="Start ScanDisk after displaying a warning"
  10. "TEXT 3"="Start ScanDisk without warning"
  11. "DESCRIPTION 1"="If Windows detects that your PC has crashed, it starts ScanDisk while booting to correct any HD failures."
  12. "DESCRIPTION 2"="Only set this option to "Never" if you are really sure what you do!"
  13. "DESCRIPTION 3"="NOTE: Some of these items may not work on Windows 98 Second Edition."
  14. "AUTHOR"="Xteq Systems"
  15. "COPYRIGHT"="Copyright ⌐ Xteq Systems - All Rights Reserved"
  16. "COMMENT 1"="For more information, go to http://www.xteq.com or write to TeXHeX@xteq.com."
  17.  
  18.  
  19. '0 => never
  20. '1 => w/ warning
  21. '2 => no warning
  22.  
  23. sF="C:\MSDOS.SYS"
  24. sO="OPTIONS"
  25.  
  26. Sub Plugin_Initialize 
  27.  If GetWinVer=1 or GetWinVer=3 then
  28.   Call FileSetAttribute(sf,"S-")
  29.   Call FileSetAttribute(sf,"R-")
  30.   Call FileSetAttribute(sf,"H-")
  31.  
  32.   i=IniReadValue(sf,so,"AutoScan")
  33.   'If IsEmpty(i) then
  34.   ' 'Win 95 A don't like this parameter....
  35.   ' Disable
  36.   'else
  37.    if i=0 then 
  38.     SetUIElement 1,true
  39.    else
  40.     if i=1 then
  41.      SetUIElement 2,true
  42.     else
  43.      SetUIElement 3,true
  44.     end if
  45.    end if
  46.   'end if
  47.  else
  48.   Disable
  49.  end if
  50. End Sub
  51.  
  52. Sub Plugin_CheckData(ElementIndex)
  53. End Sub
  54.  
  55. Sub Plugin_Apply(ElementIndex,ElementSubIndex)
  56.  b=GetUIElement(1)
  57.  if b=true then
  58.   Call IniWriteValue(sf,so,"AutoScan",0)
  59.  else 
  60.   b=GetUIElement(2)
  61.   if b=true then
  62.    Call IniWriteValue(sf,so,"AutoScan",1)
  63.   else
  64.    Call IniWriteValue(sf,so,"AutoScan",2)
  65.   end if
  66.  end if
  67.  
  68.  Restart
  69. End Sub
  70.  
  71.  
  72. Sub Plugin_Terminate 
  73.  Call FileSetAttribute("C:\MSDOS.SYS","S+")
  74.  Call FileSetAttribute("C:\MSDOS.SYS","R+")
  75.  Call FileSetAttribute("C:\MSDOS.SYS","H+")
  76. End Sub
  77.  
  78.  
  79.  
  80.